Public Class TextRange2
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Public Sub New ( ByVal nativeObject As System.Object,  ByVal rootObject As TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Function Item( aIndex As System.Object ) As TcKs.MSOffice.Common.TextRange2
		Dim tmp_Index As System.Object = TcKs.MSOffice.Common.WrapperHelper.GetWrappedObjectIfCan( aIndex )
		Dim result As System.Object = MyBase.WrappedObject.Item( tmp_Index )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function GetEnumerator(  ) As System.Collections.IEnumerator
		Dim result As System.Object = MyBase.WrappedObject.GetEnumerator(  )
		Return result
	End Function 
	
	Public Function TrimText(  ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.TrimText(  )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function InsertAfter( aNewText As System.String ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.InsertAfter( aNewText )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function InsertBefore( aNewText As System.String ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.InsertBefore( aNewText )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function InsertSymbol( aFontName As System.String, aCharNumber As System.Int32, aUnicode As TcKs.MSOffice.Common.MsoTriState ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.InsertSymbol( aFontName, aCharNumber, aUnicode )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Sub [Select](  )
		MyBase.WrappedObject.[Select](  )
	End Sub 
	
	Public Sub Cut(  )
		MyBase.WrappedObject.Cut(  )
	End Sub 
	
	Public Sub Copy(  )
		MyBase.WrappedObject.Copy(  )
	End Sub 
	
	Public Sub Delete(  )
		MyBase.WrappedObject.Delete(  )
	End Sub 
	
	Public Function Paste(  ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.Paste(  )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function PasteSpecial( aFormat As TcKs.MSOffice.Common.MsoClipboardFormat ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.PasteSpecial( aFormat )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Sub ChangeCase( aType As TcKs.MSOffice.Common.MsoTextChangeCase )
		MyBase.WrappedObject.ChangeCase( aType )
	End Sub 
	
	Public Sub AddPeriods(  )
		MyBase.WrappedObject.AddPeriods(  )
	End Sub 
	
	Public Sub RemovePeriods(  )
		MyBase.WrappedObject.RemovePeriods(  )
	End Sub 
	
	Public Function Find( aFindWhat As System.String, aAfter As System.Int32, aMatchCase As TcKs.MSOffice.Common.MsoTriState, aWholeWords As TcKs.MSOffice.Common.MsoTriState ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.Find( aFindWhat, aAfter, aMatchCase, aWholeWords )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function Replace( aFindWhat As System.String, aReplaceWhat As System.String, aAfter As System.Int32, aMatchCase As TcKs.MSOffice.Common.MsoTriState, aWholeWords As TcKs.MSOffice.Common.MsoTriState ) As TcKs.MSOffice.Common.TextRange2
		Dim result As System.Object = MyBase.WrappedObject.Replace( aFindWhat, aReplaceWhat, aAfter, aMatchCase, aWholeWords )
		Dim ret As New TcKs.MSOffice.Common.TextRange2( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Sub RotatedBounds( aX1 As System.Single, aY1 As System.Single, aX2 As System.Single, aY2 As System.Single, aX3 As System.Single, aY3 As System.Single, ax4 As System.Single, ay4 As System.Single )
		MyBase.WrappedObject.RotatedBounds( aX1, aY1, aX2, aY2, aX3, aY3, ax4, ay4 )
	End Sub 
	
	Public Sub RtlRun(  )
		MyBase.WrappedObject.RtlRun(  )
	End Sub 
	
	Public Sub LtrRun(  )
		MyBase.WrappedObject.LtrRun(  )
	End Sub 
	
	Public ReadOnly Property Application As System.Object
		Get 
			Return MyBase.WrappedObject.Application
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As System.Int32
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public Property [Text] As System.String
		Get 
			Return MyBase.WrappedObject.[Text]
		End Get 
		Set ( ByVal Value As System.String )
			MyBase.WrappedObject.[Text] = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property Count As System.Int32
		Get 
			Return MyBase.WrappedObject.Count
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public ReadOnly Property ParagraphFormat As TcKs.MSOffice.Common.ParagraphFormat2
		Get 
			Dim nativeObject As System.Object = MyBase.WrappedObject.ParagraphFormat
			Dim ret As New TcKs.MSOffice.Common.ParagraphFormat2( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Font As TcKs.MSOffice.Common.Font2
		Get 
			Dim nativeObject As System.Object = MyBase.WrappedObject.Font
			Dim ret As New TcKs.MSOffice.Common.Font2( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Length As System.Int32
		Get 
			Return MyBase.WrappedObject.Length
		End Get 
	End Property 
	
	Public ReadOnly Property Start As System.Int32
		Get 
			Return MyBase.WrappedObject.Start
		End Get 
	End Property 
	
	Public ReadOnly Property BoundLeft As System.Single
		Get 
			Return MyBase.WrappedObject.BoundLeft
		End Get 
	End Property 
	
	Public ReadOnly Property BoundTop As System.Single
		Get 
			Return MyBase.WrappedObject.BoundTop
		End Get 
	End Property 
	
	Public ReadOnly Property BoundWidth As System.Single
		Get 
			Return MyBase.WrappedObject.BoundWidth
		End Get 
	End Property 
	
	Public ReadOnly Property BoundHeight As System.Single
		Get 
			Return MyBase.WrappedObject.BoundHeight
		End Get 
	End Property 
	
	Public Property LanguageID As TcKs.MSOffice.Common.MsoLanguageID
		Get 
			Return MyBase.WrappedObject.LanguageID
		End Get 
		Set ( ByVal Value As TcKs.MSOffice.Common.MsoLanguageID )
			MyBase.WrappedObject.LanguageID = Value 
		End Set 
	End Property 
	
End Class 
